home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / vision / programm / paintshp / source / esc_sim.asm next >
Encoding:
Assembly Source File  |  1994-09-22  |  801 b   |  15 lines
  1. esc_sim:  movem.l   d0-d3/a0-a3,-(sp)   ; Register retten
  2.           move.w    #1,-(sp)            ; IKBD-Struktur erfragen
  3.           move.w    #14,-(sp)           ; Funktion: Iorec
  4.           trap      #14                 ; XBIOS
  5.           addq.l    #4,sp               ; Stack korrigieren
  6.           movea.l   d0,a0               ; Adresse nach a0
  7.           movea.l   (a0),a1             ; Adresse des Tastaturpuffers
  8.           move.l    #$1001b,(a1)        ; <Esc> eintragen
  9.           move.l    #$1001b,4(a1)       ;   "      "
  10.           clr.w     6(a0)               ; Schreibposition(?):=0
  11.           move.w    #8,8(a0)            ; Leseposition(?):=8
  12.           movem.l   (sp)+,d0-d3/a0-a3   ; Register zurück ...
  13.           rts                           ; ... und raus aus der Routine
  14.  
  15.